Developer CD Series 1996 February: Tool Chest/Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso/Tool Chest/Development Tools & Languages/Dylan Related/Marlais/MacMarlais 0.5.9d46/Examples/module-test.dyl

Text File | 1994-12-19 | 592 b | 31 lines | [TEXT/Mrls]

module:        dylan-user
description:    shows how to use basic modules.

// testing a class defined within a module.

define module Test
    use dylan, export: all;

    export <test>, main;
end module Test;

set-module(Test:);

define abstract class <abstract-test> (<object>) end class;

define class <test> (<abstract-test>)
    slot needs-initializing :: <integer>,
      required-init-keyword: ni:;
end class;

define method initialize (self :: <test>, #key ni (10))
    next-method();
    self.needs-initializing := ni;
end method;

define method main ()
    print(make(<test>, ni: 20));
end method;

main();